Vzdialeny pristup do zdielanej zlozky
Otázka od: preas_w@stonline.sk
23. 5. 2004 12:38
Zdravim.
Na NT serveri mam zdielanu zlozku. Ked chcem cez priskumnika zo stanice W98
do tejto zlozky vojst, vyzaduje server prihlasovacie meno a heslo. Po jeho
zadani uz mozem s touto zlozkou pracovat az do vypnutia pocitaca.
Da sa zadanie spominaneho mena a hesla urobit aj programovo pomocou delphi
tak aby sa dialog pre zadanie mena a hesla nezobrazil?
Diky
Martin
-=x=-
Skontrolovane antivirovym programom NOD32
Odpovedá: Vaclav Krmela
23. 5. 2004 14:06
> From: preas_w@stonline.sk
>
> Na NT serveri mam zdielanu zlozku. Ked chcem cez priskumnika
> zo stanice W98
> do tejto zlozky vojst, vyzaduje server prihlasovacie meno a
> heslo. Po jeho
> zadani uz mozem s touto zlozkou pracovat az do vypnutia pocitaca.
> Da sa zadanie spominaneho mena a hesla urobit aj programovo
> pomocou delphi
> tak aby sa dialog pre zadanie mena a hesla nezobrazil?
functionOpenSharedResource(Path, User, Pasw: String): Boolean;
var
NetRes: TNetResource;
UserName: array[0..31] of Char;
Password: array[0..31] of Char;
begin
Result := False;
StrLCopy(UserName, PChar(User), SizeOf(UserName)-1);
StrLCopy(Password, PChar(Pasw), SizeOf(Password)-1);
ZeroMemory(@NetRes, Sizeof(NetRes));
NetRes.dwType := RESOURCETYPE_DISK;
NetRes.lpRemoteName := PChar(Path);
if not DirectoryExists(Path) and
(WNetAddConnection2(NetRes, Password, UserName, 0) <> NO_ERROR) then
begin
{ MessBox(sErrorOpenShared, MB_ICONERROR);}
end else
Result := True;
end;
Vaclav Krmela